(LAP TEST SUBR) 
	(MOVEI 1 (QUOTE "X = ")) 
	(CALL 1 (E PRINTSTR)) 
	(MOVEI 1 (QUOTE ((A B C) (D E) NIL (F)))) 
	(PUSH P 1) 
	(CALL 1 (E PRINT)) 
	(MOVEI 1 (QUOTE "COLLECT = ")) 
	(CALL 1 (E PRINTSTR)) 
	(PUSH P 0 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -2 P) 
	(JUMPN 1 TAG11) 
	(MOVE 1 0 P) 
	(JRST 0 TAG5) 
TAG11 	(HLRZ@ 1 -2 P) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -2 P) 
	(MOVE 2 -1 P) 
	(MOVEM 1 -2 P) 
	(MOVE 1 0 P) 
	(CALL 2 (E *APPEND)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG5 	(CALL 1 (E PRINT)) 
	(SUB P (C 0 0 3 3)) 
	(MOVEI 1 (QUOTE "X = ")) 
	(CALL 1 (E PRINTSTR)) 
	(MOVE 1 0 P) 
	(CALL 1 (E PRINT)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL